From 0d537781ee0065bc0033a5204c544a5264bb93f3 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 3 Sep 2004 22:25:21 +0000 Subject: [PATCH] (auto-revert-handler): Bind `buffer-read-only' locally around the call to `revert-buffer'. --- lisp/autorevert.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 796ebaa27c8..ecf768c5732 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -421,7 +421,8 @@ This is an internal function used by Auto-Revert Mode." 'no-mini t)) (if auto-revert-tail-mode (auto-revert-tail-handler) - (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)) + (let ((buffer-read-only buffer-read-only)) + (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes))) (when buffer-file-name (when eob (goto-char (point-max))) (dolist (window eoblist) -- 2.30.2